InitPalette
ChangePalette
DrawEllipses
PaletteArray
ASPECT
ColorVal
Radius
 640 x 200 resolution; 16 colors
 Shift palette until key pressed
InitPalette
= InitPalette 
 This procedure initializes the integer array used to
 change the palette.
ChangePalette
= ChangePalette 
 This procedure rotates the palette by one each time it=
 is called.  For example, after the first call toi
 ChangePalette, PaletteArray(1) = 2, PaletteArray(2) = 3,
 . . . , PaletteArray(14) = 15, and PaletteArray(15) = 1
 Shift the color displayed by each of the attributes from=
 one to fifteen:
DrawEllipses
= DrawEllipses 
 This procedure draws fifteen concentric ellipses, and
 paints the interior of each with a different color.